home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Interactive Media Design Review 1999
/
Interactive Media Design Review 1999.iso
/
pc
/
allfiles
/
tokyo
/
ufdemo.dir
/
00017_Script_17
< prev
next >
Wrap
Text File
|
1999-04-25
|
3KB
|
149 lines
on startMovie
repeat with v = 5 to 10
set the visible of sprite v to 1
end repeat
end
on idle
rightArrow
leftArrow
exitMovie
end
on rightArrow
if rollover(142) then
set the blend of sprite 142 to 50
else
set the blend of sprite 142 to 100
end if
end
on leftArrow
if rollover(141) then
set the blend of sprite 141 to 50
else
set the blend of sprite 141 to 100
end if
end
on sample
if rollover(145) then
set the blend of sprite 145 to 50
else
set the blend of sprite 145 to 100
end if
end
on cursHand
if rollover(7) then
touch
else
if rollover(9) then
touch
else
if rollover(142) then
cursor -1
else
if rollover(141) then
cursor -1
else
cursor -1
end if
end if
end if
end if
end
on touch
if the mousedown then
cursor [30,31]
else
cursor [28,29]
end if
end
on moveStart
global ASPEED
SET ASPEED = (1)
end
on movePlay
global ASPEED
movetowards 7,ASPEED
movetowards 8,ASPEED
movetowards 11,ASPEED
-- movetowards 9,ASPEED
end
on movetowards pic,speed
if the mouseH > the locH of sprite pic + speed then
set the locH of sprite pic to the locH of sprite pic + speed
else
if the mouseH < the locH of sprite pic - speed then
set the locH of sprite pic to the locH of sprite pic - speed
else
set the locH of sprite pic = the mouseH
end if
end if
if the mouseV > the locV of sprite pic + speed then
set the locV of sprite pic to the locV of sprite pic + speed
else
if the mouseV < the locV of sprite pic - speed then
set the locV of sprite pic to the locV of sprite pic - speed
else
set the locV of sprite pic = the mouseV
end if
end if
end
on SpritesFloatingDown
global bounce
repeat with sp = 9 to 9
set bounce = -10
if bounce > 10 then
set the locV of sprite sp to 0
end if
set the locV of sprite sp to the locV of sprite sp + 1
if the locV of sprite sp > the stageBottom then
set the locV of sprite sp to bounce
end if
end repeat
end
on flipPic
set the castNum of sprite 13 = the castNum of sprite 13 + 1
if the castNum of sprite 13 > 141 then set the castNum of sprite 13 to 118
end
on exitMovie
if rollover(143) then
set the blend of sprite 143 to 50
else
set the blend of sprite 143 to 100
end if
end